-- card: 5994 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Files
----- HyperTalk script -----
on idle
  global port,b
  put the time into field 4
  if SPortHasChar(port) then
    if b<>1 then
      put empty into reslts
      repeat 3
        put recvUpTo(port,return,2,false,false) into newIn
        put newIn after reslts
      end repeat
      if "key to continue..." is in reslts then put 1 into b
      if the length of reslts >0 then
        put reslts after card field 1
        put the rect of card field 1 into fieldRect
        put ( item 3 of fieldRect) - 5 into horizCoord
        put (item 4 of fieldRect) - 17 into vertCoord

        click at horizCoord,vertCoord
      end if
    end if
  end if
end idle

on closecard
  put empty into card field 1
  put 0 into b
end closecard

on opencard
  put empty into card field 1
  put 0 into b
end opencard


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=28 top=64 right=315 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=35 top=317 right=339 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yes
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"y"&return
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=278 top=317 right=339 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continuous
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"c"&return
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=155 top=317 right=339 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"n"&return
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=396 top=25 right=62 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit/Done
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=393 top=317 right=339 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Download
----- HyperTalk script -----
on mouseUp
  put "Drag of the NAME of the file you wish to download"
  show button "get it!"
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=91 top=25 right=64 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Get it!
----- HyperTalk script -----
on mouseUp
  global port
  if the selection <> empty then
    sendSPort port,false,"d"&return
    put the selection
    wait 20
    sendSPort port,false,the selection&return
    wait 10
    sendSPort port,false,"2"&return
    RECX
  else answer "No file selected"
  hide msg
  hide target
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=0 top=295 right=340 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <cr>
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,return
end mouseUp



-- part contents for background part 4
----- text -----
Mon, Jul 11, 1988

-- part contents for background part 5
----- text -----
9:01 PM

-- part contents for background part 1
----- text -----






Tue, Jul 12, 1988, 4:38 PM

-- part contents for background part 3
----- text -----
Mon, Jul 11, 1988, 3:43 PM